home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
diskmags
/
3565-4.665
/
dmg-4626
/
book4
/
book4.bas
(
.txt
)
Wrap
Atari STOS Basic
|
1987-04-21
|
6KB
|
135 lines
10 REM ---ADDRESS BOOK
100 REM --OPEN SECOND WINDOW AND ENTER OPTIONS"
1000 REM --FIND A FILE
1010 IF
1020 LOCATE
1030 REM --LOOK FOR FIRST THREE LETTERS OF N$ IN NAME$ ARRAY
1040 VARNAME
1050 VARNAME
1060 INC
1070 UNTIL
1080 REM --IF THE FILE IS'NT FOUND THEN GO BACK TO INPUT
1090 IF
110 WINDOPEN
1100 REM --FILE FOUND SO PRINT INFO
1110 LOCATE
1120 LOCATE
1130 LOCATE
1140 LOCATE
1150 LOCATE
1160 LOCATE
1170 LOCATE
1180 LOCATE
1190 REM --ASK USER IF HE WANTS TO CONTINUE THE LISTING
120 LOCATE
1200 QWINDOW
1210 IF
1220 IF
130 LOCATE
140 LOCATE
150 LOCATE
160 LOCATE
170 LOCATE
180 REM --OPEN THIRD WINDOW FOR PROGRAM INFO
190 WINDOPEN
20 KEY
200 CENTRE
210 REM --LEAVE WINDOW AND GOTO SCREEN
220 QWINDOW
230 REM --PRINT FIELD NAMES
240 LOCATE
250 LOCATE
260 LOCATE
270 LOCATE
280 LOCATE
290 LOCATE
30 REM --SET UP ARRAYS FOR FILE INFO
300 LOCATE
3000 REM --CLEAR INFO OFF SCREEN
3010 WAIT
3020 LOCATE
3030 LOCATE
3040 LOCATE
3050 LOCATE
3060 LOCATE
3070 LOCATE
3080 LOCATE
3090 RETURN
310 LOCATE
3100 VARNAME
320 REM --WAIT FOR AN INPUT
330 VARNAME
340 REM --CHECK WHICH KEY HAS BEEN PRESS
350 IF
360 IF
370 IF
380 IF
390 IF
40 DIM
400 IF
410 VARNAME
420 REM ---CREATE A FILE
430 CURS
440 REM --GET SURNAME
450 VARNAME
460 REM --GET NAME
470 VARNAME
480 REM --GET ADDRESS
490 VARNAME
50 REM --SET UP VARIBLES
500 REM --GET TOWNS
510 VARNAME
520 REM --GET POSTCODE
530 VARNAME
540 REM --GET PHONE NUMBER
550 VARNAME
560 REM --GET INFO
570 VARNAME
580 REM --FILE CREATED SO GO BACK AND WAIT FOR NEXT INPUT
590 VARNAME
60 VARNAME
600 REM --DELETE A FILE
610 IF
620 LOCATE
630 REM --LOOK FOR FIRST THREE LETTERS OF N$ IN NAME$ ARRAY
635 VARNAME
640 VARNAME
650 INC
660 UNTIL
670 REM --IF THE FILE IS'NT FOUND THEN GO BACK TO INPUT
680 IF
690 REM --FILE FOUND SO PRINT INFO
70 REM --OPEN FIRST WINDOW AND ENTER TITLE"
700 LOCATE
710 LOCATE
720 LOCATE
730 LOCATE
740 LOCATE
750 LOCATE
760 LOCATE
770 LOCATE
780 REM --ASK USER IF HE WANTS TO DELETE THE FILE
790 QWINDOW
80 WINDOPEN
800 IF
810 REM --DELETE FILE AND SORT THEM INTO ORDER
820 FOR
830 VARNAME
840 VARNAME
850 VARNAME
860 VARNAME
870 VARNAME
880 VARNAME
890 VARNAME
90 CDOWN
900 NEXT
910 REM --GO BACK TO OPTIONS
920 QWINDOW
930 REM --INPUT ROUTINE
940 LOCATE
950 INPUT
960 IF
970 RETURN
980 REM
990 REM